home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / tutor / pumps.arj / MEASURE.TXT < prev    next >
Text File  |  1993-11-11  |  2KB  |  58 lines
  1. \MOVE 'MEASURE' TO CURRENT_TOPIC\MOVE 270 TO LASTY_WHERE
  2. \CALL SET_STANDARD_ONKEYS\MOVE 23 TO TUBE_COLORS
  3. \X OPEN_SCRN\ON KEY PG_UP\ON KEY PG_DN JUMP GOSUB5\X TAG14000\IF CURR_PG>14990 OR CURR_PG<14000\MOVE 14000 TO CURR_PG\ENDIF
  4. \MOVE 14100 TO CURR_PG
  5. \MOVE 040 TO Q\MOVE 220 TO R\MOVE 700 TO S\MOVE 594 TO T\MOVE 12 TO U\CALLM TUBE_BOX
  6. \MOVE 1 TO MODULE_FOUR
  7. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  8. \LOC 40,220\WID 660 DOT\OVER 0,A,44,23
  9. \"
  10.         Flow Rates.
  11. \"
  12.         Head.
  13. \"
  14.         Suction Requirements.
  15. \"
  16.         Maintenance Requirements.
  17. \"
  18.         Starting Effort
  19. \"
  20. \"
  21. \"
  22. \LOC 120,220\WIDTH 30 DOTS
  23. \"
  24. 1.
  25. \"
  26. 2.
  27. \"
  28. 3.
  29. \"
  30. 4.
  31. \"
  32. 5.
  33. \MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
  34. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  35. \LOC 340,538\OVER 1,A,57,23\WIDTH 240 DOTS
  36.  Choose one...
  37. \IF DEMO_MODE='YES'
  38. \MOVE 750 TO Q\MOVE 300 TO R\MOVE 990 TO S\MOVE 416 TO T\MOVE 9 TO U\CALLM TUBE_BOX\LOCATE 750,300\OVER 1,A,60,23
  39. (These options are not available in this demo.)
  40. \ENDIF
  41. \CALLM WAITBOX
  42. \MOUSE FRAME=0,3 W=67,270,67,504 A=0,1 L=47,LASTY_WHERE R=-1\MOVE E TO CURR_SUBLEVEL\MOVE CURR_SUBLEVEL TO LASTY_WHERE
  43. \X GOSUB5\CALLM WAITOFF
  44. \IF CURR_SUBLEVEL<300\MOVE 'MEA_RATE' TO TEXT_FLNM\ELSE
  45. \IF CURR_SUBLEVEL<358\MOVE 'MEA_VISC' TO TEXT_FLNM\ELSE
  46. \IF CURR_SUBLEVEL<416\MOVE 'MEA_CYCL' TO TEXT_FLNM\ELSE
  47. \IF CURR_SUBLEVEL<474\MOVE 'MEA_MAIN' TO TEXT_FLNM\ELSE
  48. \MOVE 'MEA_STAR' TO TEXT_FLNM\ENDIF
  49. \MOVE 40 TO Q\MOVE 170 TO R\MOVE 590 TO S\MOVE 680 TO T\MOVE 12 TO U\LINE Q,R,S,T,23,BF\CALLM NEW_TUBE_BOX
  50. \IF DEMO_MODE='YES'\CALLM DEMO_MSG\JUMP MAINPAGE\ENDIF
  51. \CALLM RD_TXT\JUMP MAINPAGE
  52. \X  MAINPAGE\CALLM WAITOFF\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
  53. \X ALT_QUITED\ON ERROR\END
  54. \X SET_STANDARD_ONKEYS\ON KEY F10 JUMP MAINPAGE\ON KEY 4096 JUMP ALT_QUITED\ON KEY F5 JUMP GLOSSARY\CALLM SET_ERROR_ONKEYS\RETURN
  55. \X CLEAR_ONKEYS\CLEAR ON KEYS\CALL SET_STANDARD_ONKEYS\RETURN
  56. \X GLOSSARY\MOVE 'GLOSSARY' TO TEXT_FLNM\CALLM RD_TXT
  57.  
  58.